home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 May / 64er_Magazin_88-05_1988_Markt__Technik_de_Side_A.d64 / game over (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  446b  |  26 lines
  1. 5 print"[147]64'er sound: game over"
  2. 10 si=54272:s2=54272+7
  3. 20 pokesi+24,15
  4. 30 pokesi,0:pokesi+1,20
  5. 35 pokes2,0:pokes2+1,40
  6. 40 pokesi+5,31:pokesi+6,25
  7. 45 pokes2+5,31:pokes2+6,25
  8. 50 pokes2+4,65
  9. 55 pokesi+4,65
  10. 60 fora=100to1  step-1
  11. 70 r=r+3:ifr>8then r=1
  12. 80 pokesi+3,r*r
  13. 85 pokes2+3,r
  14. 88 pokesi+1,a/10*r*2
  15. 89 pokes2+1,a/10*r*2+40/r
  16. 90 next
  17. 92 pokesi+1,4:pokes2,6
  18. 93 pokesi+3,25:pokes2+3,5
  19. 94 fora=1to60
  20. 96 pokesi+3,25:pokes2+3,5
  21. 97 pokesi+3,5:pokes2+3,25
  22. 98 ifa>10thenpokesi+24,15:pokesi+24,5
  23. 99 next
  24. 100 pokesi+4,0
  25. 110 pokes2+4,0
  26.